home *** CD-ROM | disk | FTP | other *** search
/ Science Fair / Science Fair.iso / pc / working / mirror.dir / 00340.ls < prev    next >
Encoding:
Text File  |  1995-03-26  |  1.8 KB  |  75 lines
  1. on exitFrame
  2.   global gAnswer, gObject, gStep, gFlag
  3.   if gObject = 0 then
  4.     set gStep to 0
  5.     go(the frame)
  6.   else
  7.     if gObject = gAnswer then
  8.       if gObject = 2 then
  9.         set the castNum of sprite 2 to 33
  10.       else
  11.         if gObject = 3 then
  12.           set the castNum of sprite 3 to 35
  13.         else
  14.           if gObject = 4 then
  15.             set the castNum of sprite 4 to 37
  16.           else
  17.             if gObject = 6 then
  18.               set the castNum of sprite 6 to 43
  19.             else
  20.               if gObject = 7 then
  21.                 set the castNum of sprite 7 to 39
  22.               else
  23.                 if gObject = 16 then
  24.                   set the castNum of sprite 16 to 41
  25.                 else
  26.                   set the castNum of sprite 17 to 31
  27.                 end if
  28.               end if
  29.             end if
  30.           end if
  31.         end if
  32.       end if
  33.       set gStep to 0
  34.       set gObject to 0
  35.       puppetSound(0)
  36.       go(the frame + 1)
  37.     else
  38.       set gStep to gStep + 1
  39.       if gStep = 5 then
  40.         if gObject = 2 then
  41.           setAt(gFlag, 1, 1)
  42.         end if
  43.         if gObject = 3 then
  44.           setAt(gFlag, 2, 1)
  45.         end if
  46.         if gObject = 4 then
  47.           setAt(gFlag, 3, 1)
  48.         end if
  49.         if gObject = 6 then
  50.           setAt(gFlag, 4, 1)
  51.         end if
  52.         if gObject = 7 then
  53.           setAt(gFlag, 5, 1)
  54.         end if
  55.         if gObject = 16 then
  56.           setAt(gFlag, 6, 1)
  57.         end if
  58.         if gObject = 17 then
  59.           setAt(gFlag, 7, 1)
  60.         end if
  61.         set the visible of sprite gObject to 0
  62.         set gStep to 0
  63.         set gObject to 0
  64.       else
  65.         if gStep = 1 then
  66.           puppetSound("up")
  67.         else
  68.           set the locV of sprite gObject to the locV of sprite gObject - 20
  69.         end if
  70.       end if
  71.       go(the frame)
  72.     end if
  73.   end if
  74. end
  75.